home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / PTRPDEMO / ETEST6.TRP < prev    next >
Text File  |  1995-01-17  |  436b  |  18 lines
  1. procedure main
  2.         if (false) 
  3.                 writeln('A');
  4.                 if (true)
  5.                         writeln('E')
  6.                 else
  7.                         writeln('F');
  8.                 endif
  9.         else
  10.                 if (false)
  11.                         writeln('B')
  12.                 else
  13.                         writeln('C');
  14.                 endif
  15.                 writeln('D');
  16.         endif
  17. endProc
  18.